home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / netbro1a / edit.frm < prev    next >
Text File  |  1999-09-13  |  3KB  |  103 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form edit 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Bookmarks organizer"
  6.    ClientHeight    =   5535
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   4725
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   5535
  14.    ScaleWidth      =   4725
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin MSComctlLib.ListView ListView1 
  18.       Height          =   5055
  19.       Left            =   0
  20.       TabIndex        =   0
  21.       Top             =   480
  22.       Width           =   4695
  23.       _ExtentX        =   8281
  24.       _ExtentY        =   8916
  25.       View            =   1
  26.       LabelWrap       =   -1  'True
  27.       HideSelection   =   -1  'True
  28.       GridLines       =   -1  'True
  29.       _Version        =   393217
  30.       Icons           =   "ImageList1"
  31.       SmallIcons      =   "ImageList1"
  32.       ColHdrIcons     =   "ImageList1"
  33.       ForeColor       =   -2147483640
  34.       BackColor       =   -2147483643
  35.       BorderStyle     =   1
  36.       Appearance      =   1
  37.       NumItems        =   0
  38.    End
  39.    Begin MSComctlLib.ImageList ImageList1 
  40.       Left            =   0
  41.       Top             =   0
  42.       _ExtentX        =   1005
  43.       _ExtentY        =   1005
  44.       BackColor       =   -2147483643
  45.       ImageWidth      =   16
  46.       ImageHeight     =   16
  47.       MaskColor       =   12632256
  48.       _Version        =   393216
  49.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  50.          NumListImages   =   1
  51.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  52.             Picture         =   "edit.frx":0000
  53.             Key             =   ""
  54.          EndProperty
  55.       EndProperty
  56.    End
  57.    Begin VB.Label Label1 
  58.       BackStyle       =   0  'Transparent
  59.       Caption         =   "Double click on the item you want to rename,or press delete button on your keyboard to remove it from you bookmarks."
  60.       Height          =   495
  61.       Left            =   120
  62.       TabIndex        =   1
  63.       Top             =   0
  64.       Width           =   4575
  65.    End
  66. End
  67. Attribute VB_Name = "edit"
  68. Attribute VB_GlobalNameSpace = False
  69. Attribute VB_Creatable = False
  70. Attribute VB_PredeclaredId = True
  71. Attribute VB_Exposed = False
  72. Private Sub Form_Activate()
  73. On Error Resume Next
  74. For i = 0 To indeex
  75. ListView1.ListItems.Add , , frmbrowse.mnubook(i).Caption, 1, 1
  76. Next i
  77. End Sub
  78.  
  79. Private Sub Form_Unload(Cancel As Integer)
  80. On Error Resume Next
  81. frmbrowse.savebook
  82. End Sub
  83.  
  84. Private Sub ListView1_AfterLabelEdit(Cancel As Integer, NewString As String)
  85. On Error Resume Next
  86. frmbrowse.mnubook(ListView1.SelectedItem.Index - 1).Caption = NewString
  87. End Sub
  88.  
  89. Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)
  90. On Error Resume Next
  91. End Sub
  92.  
  93. Private Sub ListView1_KeyDown(KeyCode As Integer, Shift As Integer)
  94. On Error Resume Next
  95. If KeyCode = vbKeyDelete And ListView1.SelectedItem.Index - 1 <> 0 Then
  96. Unload frmbrowse.mnubook(ListView1.SelectedItem.Index - 1)
  97. ListView1.ListItems.Remove ListView1.SelectedItem.Index
  98. End If
  99. If KeyCode = vbKeyDelete And ListView1.SelectedItem.Index - 1 = 0 Then
  100. MsgBox "Cannot delete this Item"
  101. End If
  102. End Sub
  103.